Cream of the Crop 1/Cream of the Crop 1.iso/PROGRAM/PNL010.ARJ/DOSMEM.PAS

Pascal/Delphi Source File | 1992-03-01 | 454b | 42 lines

unit DOSMem;

interface

function Alloc (paras:word):word;

procedure Free (p:word);

function Largest:word;

implementation

function Alloc; assembler;

asm
  mov  ah, $48
  mov  bx, paras
  int  $21
  jnc  @1
  xor  ax, ax
  @1:
end;

procedure Free; assembler;

asm
  mov  ah, $49
  mov  es, p
  int  $21
end;

function Largest; assembler;

asm
  mov  ah, $48
  mov  bx, -1
  int  $21
  mov  ax, bx
end;

end.